home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / dtype / tiffdt.lha / TIFF405 / Install < prev    next >
Text File  |  1995-10-06  |  8KB  |  287 lines
  1. ;
  2. ; $VER: TIFF datatype install 1.1 (5.10.95)
  3. ;
  4. ; Copyright (c) 1995 Bert Wynants.
  5. ;
  6. ;****************************************************************************
  7. ;
  8. ; English texts
  9. ;
  10.  
  11. (set default_lang 1)
  12.  
  13. (set #bad-kick
  14. (cat "You must have AmigaOS Release 3 or newer to be able to use the TIFF DataType."
  15. ))
  16.  
  17. (set #copy-descr "Copying TIFF DataTypes Descriptor")
  18. (set #select-descr "Select the location to install the Descriptor")
  19. (set #help-descr (cat "    The TIFF DataTypes Descriptor is required to"
  20.                       " identify TIFF files.  This file is usually placed into the"
  21.                       " \"DEVS:DataTypes\" drawer, it will then automatically be added to the"
  22.                       " list of available DataTypes on every reboot.\n"
  23.                       "    You may also place it into the systems \"Storage/DataTypes\""
  24.                       " drawer and only activate the DataType, when you need it"
  25.                       " (simply double-click the \"TIFF\" icon).\n\n"
  26.                       @copyfiles-help
  27. ))
  28.  
  29. (set #support-me (cat "This is Freeware.\n\nIf you use this DataType "
  30.     "regulary, please consider the amount of work I put into it.  Thank "
  31.     "you.\n\n")
  32. )
  33.  
  34. (set #copy-editor "Copying TIFF Preference editor...")
  35. (set #select-editor "Select the location to install the editor.")
  36. (set #help-editor "Choose a destination directory to contain the TIFF Preference Editor.")
  37.  
  38. (set #which-language
  39. (cat "\nWhich languages should be installed?"
  40. ))
  41. (set #which-language-help
  42. (cat "\nThe Amiga can be operated in many different "
  43.       "languages. If you want the TIFF preference editor"
  44.       " to use the same language as the Amiga Workbench"
  45.       " then a catalog file must be copied to your"
  46.       " system disk for each language supported.\n\n"
  47.       "To reduce the amount of space consumed by the"
  48.       " language files, you can select to have only the"
  49.       " files of specific languages copied.\n\n"
  50.       "Simply check the boxes of the languages you wish"
  51.       " to have available on your system.\n\n"
  52.       @askoptions-help
  53. ))
  54.  
  55. (set #select-docdir "Select a directory for the documentation.")
  56. (set #copy-docdir "Copying TIFF.guide...")
  57.  
  58. ;=============================================================================
  59. ; Dutch strings
  60.  
  61. (if (= @language "nederlands")
  62. (
  63.  
  64. (set default_lang 2)
  65.  
  66. (set #bad-kick
  67. (cat "U moet AmigaOS Release 3 of hoger hebben om het TIFF Datatype te gebruiken"
  68. ))
  69.  
  70. (set #copy-descr "Kopieren TIFF DataType Beschrijver")
  71. (set #select-descr "kies een lade voor de Beschrijver")
  72. (set #help-descr (cat "    De TIFF DataTypes Beschrijver is nodig voor het"
  73.                       " herkennen van TIFF bestanden.  Normaal staat dit bestand in de"
  74.                       " \"DEVS:DataTypes\" lade, het zal dan automatisch toegevoegd worden aan"
  75.                       " de lijst van beschikbare DataTypes na elke herstart.\n"
  76.                       "    U mag het ook in de systeems \"Storage/DataTypes\" lade plaatsen,"
  77.                       " en het datatype enkel activeren wanneer nodig."
  78.                       " (door het dubbel-klikken van het \"TIFF\" icoon).\n\n"
  79. ))
  80.  
  81. (set #support-me (cat "Dit is Freeware.\n\nAls U het datatype regelmatig\n"
  82.     "gebruikt, denk er dan aan dat ik er een heleboel werk in gestoken heb.\n"
  83.     "Dank U\n\n")
  84. )
  85.  
  86. (set #copy-editor "Kopieren TIFF voorkeuren editor...")
  87. (set #select-editor "Selecteer de lade voor de editor")
  88. (set #help-editor "Kies de lade waarin de TIFF voorkeuren editor moet komen")
  89.  
  90.  
  91. (set #which-language
  92. (cat "\nWelke talen moeten geïnstalleerd worden?"
  93. ))
  94.  
  95. (set #which-language-help
  96. (cat "\nDe Amiga kan werken in verschillende talen."
  97.       " Als u wilt dat de TIFF Voorkeuren Editor in"
  98.       " dezelfde taal werkt als uw Workbench"
  99.       " dan moet er voor elke taal een bestand naar"
  100.       " uw systeem disk gekopieerd worden.\n\n"
  101.       "Om de grootte van het geheugen die de taal bestanden"
  102.       " innemen te verkleinen, kunt u een keuze maken uit"
  103.       " de talen, die vervolgens naar uw systeem disk worden"
  104.       " gekopieerd .\n\nU hoeft alleen die talen die u op"
  105.       " uw systeem wilt hebben aan te klikken.\n\n"
  106.      @askoptions-help
  107. ))
  108.  
  109. (set #select-docdir "Kies een lade voor de documentatie.")
  110. (set #copy-docdir "kopieren TIFF.guide...")
  111.  
  112. ))
  113.  
  114. ;=============================================================================
  115. ;
  116. ;****************************************************************************
  117. ;
  118. ; Setup
  119. ;
  120.  
  121. (set @default-dest "")
  122.  
  123. (set class-dest "SYS:Classes")
  124. (set dt-dest "DEVS:DataTypes")
  125. (set prefs "SYS:Prefs/DataTypes")
  126.  
  127. (makedir dt-dest)
  128.  
  129. (if (not (exists class-dest))
  130.     (set class-dest "LIBS:")
  131. )
  132.  
  133. (complete 0)
  134.  
  135. (if (< (/ (getversion) 65536) 39)
  136.     (abort #bad-kick)
  137. )
  138.  
  139. ;****************************************************************************
  140. ;
  141. ; Welcome
  142. ;
  143.  
  144. (welcome)
  145.  
  146. (message "\n     TIFF DataType \n\nCopyright © 1995 "
  147.     "Bert Wynants, All Rights Reserved.\n"
  148. )
  149.  
  150. (complete 5)
  151.  
  152. ;****************************************************************************
  153. ;
  154. ; Install DataTypes descriptor
  155. ;
  156.  
  157. (set dt-dest
  158.         (askdir (prompt #select-descr)
  159.                 (default dt-dest)
  160.                 (help #help-descr)
  161.         )
  162. )
  163.  
  164. (complete 10)
  165.  
  166. (copyfiles
  167.     (help #TIFF-descr)
  168.     (prompt #copy-descr)
  169.     (source "Devs/DataTypes/TIFF")
  170.     (dest dt-dest)
  171.     (infos)
  172. )
  173.  
  174. (complete 20)
  175.  
  176. ;****************************************************************************
  177. ;
  178. ; Install class
  179. ;
  180.  
  181. (copylib
  182.     (help @copylib-help)
  183.     (prompt "Copying TIFF.datatype...")
  184.     (source "Classes/DataTypes/TIFF.datatype")
  185.     (dest (tackon class-dest "DataTypes"))
  186.     (confirm)
  187. )
  188.  
  189. (complete 40)
  190.  
  191. ;****************************************************************************
  192. ;
  193. ; Install TIFF prefs Editor
  194. ;
  195.  
  196. (set thedest
  197.         (askdir (prompt #select-editor)
  198.                 (default prefs)
  199.                 (help #help-editor)
  200.         )
  201. )
  202.  
  203. ; copy including version checking
  204. (copyfiles
  205.     (prompt "\n" #copy-editor)
  206.     (help #help-editor)
  207.     (source "Prefs/TIFF")
  208.     (dest thedest)
  209.     (infos)
  210. ;    (confirm)
  211. )
  212.  
  213. (complete 60)
  214.  
  215. (if (exists "SYS:Locale")
  216. (
  217.     (if (exists "LOCALE:")
  218.     (
  219.         (set old_level @user-level)
  220.         (user 2)
  221.         (set lang (askoptions (prompt #which-language)
  222.                               (help #which-language-help)
  223.                               (choices "English" "Nederlands" "Deutsch" "Italiano" "Français")
  224.                               (default default_lang)
  225.                   )
  226.         )
  227.         (user old_level)
  228.  
  229.         (set n 0)
  230.         (while (set language (select n "english" "nederlands" "deutsch" "italiano" "français" ""))
  231.         (
  232.             (if (IN lang n)
  233.             (
  234.                 (if (<> 0 n)
  235.                 (
  236.                     (makedir (cat "LOCALE:Catalogs/" language))
  237.                     (copyfiles (source (cat "Catalogs/" language))
  238.                                (dest (cat "LOCALE:Catalogs/" language))
  239.                                (pattern "#?.catalog")
  240.                     )
  241.                 ))
  242.             ))
  243.             (set n (+ n 1))
  244.         ))
  245.     ))
  246. ))
  247.  
  248. (complete 80)
  249.  
  250. ;****************************************************************************
  251. ;
  252. ; Copy Documentation
  253. ;
  254.  
  255. (set doc-dir "HELP:")
  256.  
  257. ;(set doc-dir
  258. ;        (askdir (prompt #select-docdir)
  259. ;                (default "HELP:English")
  260. ;                (help @askdir-help)
  261. ;        )
  262. ;)
  263.  
  264. (copyfiles
  265.     (help @copyfiles-help)
  266.     (prompt #copy-docdir)
  267.     (choices "TIFF.guide" "TIFF_deutsch.guide")
  268.     (source "")
  269.     (dest doc-dir)
  270.     (infos)
  271.     (optional nofail)
  272.     (confirm)
  273. )
  274.  
  275. ;****************************************************************************
  276. ;
  277. ; Exit
  278. ;
  279.  
  280. (
  281.     (run "Avail >NIL: FLUSH")
  282.     (run "AddDataTypes >NIL: Devs/DataTypes/TIFF")
  283.     (complete 100)
  284.     (exit #support-me "The TIFF DataType is now ready to be used.  Enjoy!")
  285. )
  286.  
  287.